home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 401-425 / disk_419 / yacc / src.lzh / Src / error.c < prev    next >
C/C++ Source or Header  |  1990-07-14  |  6KB  |  318 lines
  1. /* routines for printing error messages  */
  2.  
  3. #include "defs.h"
  4.  
  5.  
  6. fatal(msg)
  7. char *msg;
  8. {
  9.     fprintf(stderr, "%s: f - %s\n", myname, msg);
  10.     done(2);
  11. }
  12.  
  13.  
  14. no_space()
  15. {
  16.     fprintf(stderr, "%s: f - out of space\n", myname);
  17.     done(2);
  18. }
  19.  
  20.  
  21. open_error(filename)
  22. char *filename;
  23. {
  24.     fprintf(stderr, "%s: f - cannot open \"%s\"\n", myname, filename);
  25.     done(2);
  26. }
  27.  
  28.  
  29. unexpected_EOF()
  30. {
  31.     fprintf(stderr, "%s: e - line %d of \"%s\", unexpected end-of-file\n",
  32.         myname, lineno, input_file_name);
  33.     done(1);
  34. }
  35.  
  36.  
  37. print_pos(st_line, st_cptr)
  38. char *st_line;
  39. char *st_cptr;
  40. {
  41.     register char *s;
  42.  
  43.     if (st_line == 0) return;
  44.     for (s = st_line; *s != '\n'; ++s)
  45.     {
  46.     if (isprint(*s) || *s == '\t')
  47.         putc(*s, stderr);
  48.     else
  49.         putc('?', stderr);
  50.     }
  51.     putc('\n', stderr);
  52.     for (s = st_line; s < st_cptr; ++s)
  53.     {
  54.     if (*s == '\t')
  55.         putc('\t', stderr);
  56.     else
  57.         putc(' ', stderr);
  58.     }
  59.     putc('^', stderr);
  60.     putc('\n', stderr);
  61. }
  62.  
  63.  
  64. syntax_error(st_lineno, st_line, st_cptr)
  65. int st_lineno;
  66. char *st_line;
  67. char *st_cptr;
  68. {
  69.     fprintf(stderr, "%s: e - line %d of \"%s\", syntax error\n",
  70.         myname, st_lineno, input_file_name);
  71.     print_pos(st_line, st_cptr);
  72.     done(1);
  73. }
  74.  
  75.  
  76. unterminated_comment(c_lineno, c_line, c_cptr)
  77. int c_lineno;
  78. char *c_line;
  79. char *c_cptr;
  80. {
  81.     fprintf(stderr, "%s: e - line %d of \"%s\", unmatched /*\n",
  82.         myname, c_lineno, input_file_name);
  83.     print_pos(c_line, c_cptr);
  84.     done(1);
  85. }
  86.  
  87.  
  88. unterminated_string(s_lineno, s_line, s_cptr)
  89. int s_lineno;
  90. char *s_line;
  91. char *s_cptr;
  92. {
  93.     fprintf(stderr, "%s: e - line %d of \"%s\", unterminated string\n",
  94.         myname, s_lineno, input_file_name);
  95.     print_pos(s_line, s_cptr);
  96.     done(1);
  97. }
  98.  
  99.  
  100. unterminated_text(t_lineno, t_line, t_cptr)
  101. int t_lineno;
  102. char *t_line;
  103. char *t_cptr;
  104. {
  105.     fprintf(stderr, "%s: e - line %d of \"%s\", unmatched %%{\n",
  106.         myname, t_lineno, input_file_name);
  107.     print_pos(t_line, t_cptr);
  108.     done(1);
  109. }
  110.  
  111.  
  112. unterminated_union(u_lineno, u_line, u_cptr)
  113. int u_lineno;
  114. char *u_line;
  115. char *u_cptr;
  116. {
  117.     fprintf(stderr, "%s: e - line %d of \"%s\", unterminated %%union \
  118. declaration\n", myname, u_lineno, input_file_name);
  119.     print_pos(u_line, u_cptr);
  120.     done(1);
  121. }
  122.  
  123.  
  124. over_unionized(u_cptr)
  125. char *u_cptr;
  126. {
  127.     fprintf(stderr, "%s: e - line %d of \"%s\", too many %%union \
  128. declarations\n", myname, lineno, input_file_name);
  129.     print_pos(line, u_cptr);
  130.     done(1);
  131. }
  132.  
  133.  
  134. illegal_tag(t_lineno, t_line, t_cptr)
  135. int t_lineno;
  136. char *t_line;
  137. char *t_cptr;
  138. {
  139.     fprintf(stderr, "%s: e - line %d of \"%s\", illegal tag\n",
  140.         myname, t_lineno, input_file_name);
  141.     print_pos(t_line, t_cptr);
  142.     done(1);
  143. }
  144.  
  145.  
  146. illegal_character(c_cptr)
  147. char *c_cptr;
  148. {
  149.     fprintf(stderr, "%s: e - line %d of \"%s\", illegal character\n",
  150.         myname, lineno, input_file_name);
  151.     print_pos(line, c_cptr);
  152.     done(1);
  153. }
  154.  
  155.  
  156. used_reserved(s)
  157. char *s;
  158. {
  159.     fprintf(stderr, "%s: e - line %d of \"%s\", illegal use of reserved symbol \
  160. %s\n", myname, lineno, input_file_name, s);
  161.     done(1);
  162. }
  163.  
  164.  
  165. tokenized_start(s)
  166. char *s;
  167. {
  168.      fprintf(stderr, "%s: e - line %d of \"%s\", the start symbol %s cannot be \
  169. declared to be a token\n", myname, lineno, input_file_name, s);
  170.      done(1);
  171. }
  172.  
  173.  
  174. retyped_warning(s)
  175. char *s;
  176. {
  177.     fprintf(stderr, "%s: w - line %d of \"%s\", the type of %s has been \
  178. redeclared\n", myname, lineno, input_file_name, s);
  179. }
  180.  
  181.  
  182. reprec_warning(s)
  183. char *s;
  184. {
  185.     fprintf(stderr, "%s: w - line %d of \"%s\", the precedence of %s has been \
  186. redeclared\n", myname, lineno, input_file_name, s);
  187. }
  188.  
  189.  
  190. revalued_warning(s)
  191. char *s;
  192. {
  193.     fprintf(stderr, "%s: w - line %d of \"%s\", the value of %s has been \
  194. redeclared\n", myname, lineno, input_file_name, s);
  195. }
  196.  
  197.  
  198. terminal_start(s)
  199. char *s;
  200. {
  201.     fprintf(stderr, "%s: e - line %d of \"%s\", the start symbol %s is a \
  202. token\n", myname, lineno, input_file_name, s);
  203.     done(1);
  204. }
  205.  
  206.  
  207. restarted_warning()
  208. {
  209.     fprintf(stderr, "%s: w - line %d of \"%s\", the start symbol has been \
  210. redeclared\n", myname, lineno, input_file_name);
  211. }
  212.  
  213.  
  214. no_grammar()
  215. {
  216.     fprintf(stderr, "%s: e - line %d of \"%s\", no grammar has been \
  217. specified\n", myname, lineno, input_file_name);
  218.     done(1);
  219. }
  220.  
  221.  
  222. terminal_lhs(s_lineno)
  223. int s_lineno;
  224. {
  225.     fprintf(stderr, "%s: e - line %d of \"%s\", a token appears on the lhs \
  226. of a production\n", myname, s_lineno, input_file_name);
  227.     done(1);
  228. }
  229.  
  230.  
  231. prec_redeclared()
  232. {
  233.     fprintf(stderr, "%s: w - line %d of  \"%s\", conflicting %%prec \
  234. specifiers\n", myname, lineno, input_file_name);
  235. }
  236.  
  237.  
  238. unterminated_action(a_lineno, a_line, a_cptr)
  239. int a_lineno;
  240. char *a_line;
  241. char *a_cptr;
  242. {
  243.     fprintf(stderr, "%s: e - line %d of \"%s\", unterminated action\n",
  244.         myname, a_lineno, input_file_name);
  245.     print_pos(a_line, a_cptr);
  246.     done(1);
  247. }
  248.  
  249.  
  250. dollar_warning(a_lineno, i)
  251. int a_lineno;
  252. int i;
  253. {
  254.     fprintf(stderr, "%s: w - line %d of \"%s\", $%d references beyond the \
  255. end of the current rule\n", myname, a_lineno, input_file_name, i);
  256. }
  257.  
  258.  
  259. dollar_error(a_lineno, a_line, a_cptr)
  260. int a_lineno;
  261. char *a_line;
  262. char *a_cptr;
  263. {
  264.     fprintf(stderr, "%s: e - line %d of \"%s\", illegal $-name\n",
  265.         myname, a_lineno, input_file_name);
  266.     print_pos(a_line, a_cptr);
  267.     done(1);
  268. }
  269.  
  270.  
  271. untyped_lhs()
  272. {
  273.     fprintf(stderr, "%s: e - line %d of \"%s\", $$ is untyped\n",
  274.         myname, lineno, input_file_name);
  275.     done(1);
  276. }
  277.  
  278.  
  279. untyped_rhs(i, s)
  280. int i;
  281. char *s;
  282. {
  283.     fprintf(stderr, "%s: e - line %d of \"%s\", $%d (%s) is untyped\n",
  284.         myname, lineno, input_file_name, i, s);
  285.     done(1);
  286. }
  287.  
  288.  
  289. unknown_rhs(i)
  290. int i;
  291. {
  292.     fprintf(stderr, "%s: e - line %d of \"%s\", $%d is untyped\n",
  293.         myname, lineno, input_file_name, i);
  294.     done(1);
  295. }
  296.  
  297.  
  298. default_action_warning()
  299. {
  300.     fprintf(stderr, "%s: w - line %d of \"%s\", the default action assigns an \
  301. undefined value to $$\n", myname, lineno, input_file_name);
  302. }
  303.  
  304.  
  305. undefined_goal(s)
  306. char *s;
  307. {
  308.     fprintf(stderr, "%s: e - the start symbol %s is undefined\n", myname, s);
  309.     done(1);
  310. }
  311.  
  312.  
  313. undefined_symbol_warning(s)
  314. char *s;
  315. {
  316.     fprintf(stderr, "%s: w - the symbol %s is undefined\n", myname, s);
  317. }
  318.